home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
fb386
/
graf
/
a16.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
1KB
|
51 lines
1000 'A16.BAS***************************************************T.K.MOSAKU
1010 SCREEN@ 0:CLS
1020 L=200:PI=3.14159!
1030 '
1040 CHANTEI=1:C=1
1050 A$="☆☆☆ 円周上に長さの違う接線を描き重ねています。 ☆☆☆"
1060 A=LEN(A$):B=(80-A)\2:LOCATE 0,24:PRINT SPACE$(B)+A$
1070 T1=TIME:S=1
1080 FOR CC=1 TO 1
1090 HANKEI1=50:XTI1=50:HANKEI2=HANKEI1:XTI2=XTI1
1100 FOR T=0 TO 3
1110 FOR J=0 TO 360 STEP 10
1120 I=0
1130 GOSUB *CALK1
1140 GOSUB *CALK2
1150 FOR I=0 TO 360 STEP 120
1160 POINT (X,Y)
1170 GOSUB *CALK1
1180 LINE -(X,Y),PSET,C
1190 POINT (X2,Y2)
1200 GOSUB *CALK2
1210 LINE -(X2,Y2),PSET,C
1220 NEXT I
1230 S=S+1
1240 NEXT J
1250 HANKEI1=HANKEI1+50:XTI1=XTI1+50:HANKEI2=HANKEI1*3:XTI2=XTI1
1260 IF CHANTEI=1 THEN C=C+1
1270 NEXT T
1280 CHANTEI=0:C=0
1290 NEXT CC
1300 T2=TIME:T=T2-T1:S=2*S:LOCATE 5,1:PRINT "描き上げる時間--";T;"秒 描いた接線の数--";S;"本"
1310 GOTO 1480
1320 '
1330 *CALK1
1340 P =I/180*PI
1350 PP=J/180*PI
1360 A=400+HANKEI*COS(P)+L
1370 X=205+(XTI1*COS(PP)-HANKEI1*SIN(P)*SIN(PP))*L/A
1380 Y=230-(HANKEI2*SIN(P)*COS(PP)+XTI2*SIN(PP))*L/A
1390 RETURN
1400 '
1410 *CALK2
1420 P =I/180*PI
1430 PP=J/180*PI
1440 A=400+HANKEI*COS(P)+L
1450 X2=435+(XTI1*COS(PP)-HANKEI1*SIN(P)*SIN(PP))*L/A
1460 Y2=230-(HANKEI2*SIN(P)*COS(PP)+XTI2*SIN(PP))*L/A
1470 RETURN
1480 WAIT 100'
1490 '